program ExampleOfUCodeProcedureCallSequence(Output);

const
	SET_MAX = 71;
	MININX = 0;
	MAXINX = 100;


type
	A_SET = set of 0..SET_MAX;
	A_RECORD = record
		      X, Y :  real;
		   end;
	AN_ARRAY = array [MININX..MAXINX] of integer;
	A_RECORD_ARRAY = array [MININX..MAXINX] of A_RECORD;


procedure PROC_1(I :  integer; var J :  integer);
   begin
   end;


function FUNC_1(I :  integer; var J :  integer) :  integer;
   begin
   end;


procedure PROC_2(ARR :  AN_ARRAY; var SET1 :  A_SET);
   begin
   end;


procedure PROC_3(var ARR :  A_RECORD_ARRAY; FUNC :  function(X, Y :  real) :  real);
   begin
   end;


procedure PROC_4(PROC :  procedure(REC :  A_RECORD));
   begin
   end;


begin
end.